home *** CD-ROM | disk | FTP | other *** search
/ Fun & Games 2 (Canada) / Fun & Games CD-ROM (Canada).bin / games / disk400 / data_00.vol (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-02-24  |  33.7 KB  |  9 lines

  1. 0 RETURN***ERROR******ERROR******ERROR***RETURNLEFT$CHR$PEEKGOSAVERETURN***ERROR******ERROR******ERROR***CHR$***ERROR***GO***ERROR***RETURNDIM***ERROR***GO***ERROR***RETURNOPENENDLISTREADRETURNTAB(TOSGN^AND*/+-NOTSTEPSPC(THENTOFNNEWTAB(CLOSEGETRGET***ERROR***COSSINLOGEXPSQRRNDFREPOSABSUSRSGNINT=<OR>DEFTO^AND^R^NEXTOAND^+ANDPOS/POSNAND^+/RSTEP***ERROR***FRERPOS***ERROR***RFOR>LR***ERROR***=R***ERROR***SYSANDRNDRSTEPDEF*RGETWAITR>RUNRFORPEEKR***ERROR***COSR***ERROR***COSo^SPC(+NEWPOSSPC(NEWl^SPC(+ANDNEWSPC(NEWR}SYSRFNRQABSANDFRERySQRFREANDRNDRSTEPABS*RNDRRIGHT$=RNDR>SIN/POS/RPOSSQR*POS*RSTEP=ANDR>ABSPOSANDFREo^TO+EXPPOSANDTAB(l^TO+AND-ANDTAB(M*^+ANDSQRANDFRERSTEPRETURNm^TO+THENTAB(STEPCOSR1***ERROR***oR***ERROR***RND*POSnRSTEPWAITlRPOS=R>*^NEW+NEWPOSFNGETl^NEW+ANDNEWFNGETRSTEPoRUSINRANDRUNFRERFNDIMRPOS***ERROR***RiSINReSINRSINRFNRETURNRPOS***ERROR***R1SINR5/R***ERROR***SINR***ERROR***SINR***ERROR***SINRATNSINRVALSINRRIGHT$SINR***ERROR***SINR9SINR***ERROR***SINR***ERROR***SINR***ERROR***SINR***ERROR***SINR***ERROR******ERROR***RVERIFYSINR/***ERROR***RINTSINRPOS***ERROR***SPC(RNEWINPUTDIMSYSSYSSAVESYSSYSREADSGNR***ERROR******ERROR***SINSINSINRb<ANDSIN?R***ERROR***USR=d77<***ERROR***R***ERROR***POS<d6***ERROR******ERROR***GOSUBRPOSSQRSINe)GO***ERROR***LISTROPENCOSANDrRFRECOSSINTAB(b^<b6***ERROR******ERROR***CONTSINNEWRESTORE^AND6+RESTORERESTOREREMSINSGNLETR***ERROR***SQRLOG$R***ERROR***RETURNCMDSINSINSINSINR    USR***ERROR***COS^^ANDRUSR;RFNNEXTR.COSRPOS=USR***ERROR***RFNRUNANDRFNNEXT<bRPRINT#COSINTRSQR=RESTORER***ERROR***COSRFNSQRAND=R***ERROR***COSAND?^^SINUSRVALRfCOSAND?ANDSIN8LEFT$SINSINCOSANDSINSIN7?USR8LEFT$LEFT$COS^^SGN7?RCOSCOSSINR\SQRRRCOSCOSLOGEXPSQRRNDFREPOSABSUSRSGNINT=>COSCOSRGET***ERROR***QR^WAITR4INT&CMDQQQ@bR>***ERROR***SINSINOPENOPENOPENCMDR^ABS^^RONfRfRND/FNFNFNGETGETGETCLOSERTANORRGETDIMR!***ERROR***DIMSYSOPENSAVESYSOPENRFSRF***ERROR***RKEXPRFREMANDSINCOSRF<OPENANDR/SINRFIFR/SINRySINSGNGOTORr<CMDSINSININTR***ERROR***RESTORE***ERROR***COS^ANDSGNRZ<***ERROR***COS^^=R^OR8RFNDEFANDdRSTEPINTR***ERROR***SQRRFN=RsSINRFNRUNGOTORFNDIMR***ERROR***COSR***ERROR***ABSSINSIN8***ERROR***COSSINR***ERROR***COSANDSIN7LEFT$SINSINSINb^^USR8LEFT$SIN^=dR***ERROR***LOGRFSINRIUSRRFSRFSRFSRFUSRCLRSAVESYSCLRRQRF/R***ERROR***INTRFRND^RZSINR>SINR***ERROR***POSRnEXPRZRNDREXPOPENSGNRZREAD***ERROR***RZREAD^RND***ERROR***^ANDRTANRESTORE8COSRFNNEXT***ERROR***RFNORRiPOSRFNRUN=RESTORERENDRETURN^=GOTORFNRUNANDINT4REND=ANDUSRLEFT$SINR***ERROR***SGNANDSINUSRLEFT$SINSINR***ERROR***ABSRGSINR\SINRbINTRI<RQRQRQRINTCMDSAVESYSCMDRQRFRPOSRPOSRSAVEORR~EXPSINCOSRWAITEXPRPOSSGNoSINvLEFT$R***ERROR***RESTOREoSAVERREMSIN RIGHT$RREM^<b    RFNRUN=RESTORE9RFNDIMLETRPOSORREXP7RFNRUNSINdREXPRTO=RQIFSINdR***ERROR***RETURNRTOCOSReORR`EXPR"▓R}╜RL░RQRQRQR╣Üö₧ÜRQRIRû╜R╜¥¢⌠¥R╡╜Ω⌠ÿRÑ▓┐┐┤R╣╢«┤«»¥R«ê╛»ΩRóê╗ Rà╕╧RëRüî«▓êRÑè»╡8Rî▓»┤┐╚RÇ║»┐┤┐┐R≡┤┤┐╚R╕╢RQRQRQRΘ¢ö₧¢RQR-Rr┐R▒»Rr┐RF│╜öî▀RF╖┤¥¥öë▀Rrç┘RÑÄ╛«»¥ƒRÑè«║R°┤RÑ║Rs│Rì║R│R⌡║8R[╡┤îRÑéàR╣å«╖Ró╕┐┐╛┐RÑ╛»┐d┐┐┐7R[┐▓┐«╖8╚╧╛Ra╣Rz╣RD╜RQRQRQR╣ÿö₧ÿRQRߣRª╜R▒ÅπbR▒Ü┐▓¥RFçÆÿR╡╝&¥¥òRÉîR▄┐┐Rrâ»Rrâ»Rr│RT╜R╡┤RÑ║Rè╕»RÑé│b««R│▓îRü╛Rs╗»▓ê««»R}╜┐┤R╝»8╧R╝┐┐╛»┐╣8╧┤R ╝╖7╚╧╛»┐RF┐RG│RQRQRQR╣Öö₧ÖRQRQRQRQRQRQRQRûö₧ûRQRF/R╠╡RF╗«RZ┐R▒┐RZ┐RF╗¥¢⌠¥R,╜R╜╜Ω⌠ÿRÑ▓RZ┐R╣╢R╜»¥R└î╛»ΩRÑèR]│Ri╣╕RF╡Ri╣RQ│««▓êRÑè»╡Ra╜R╕┤┐Ru┐R╜┤┐┐RÇ┤┤┐╚R╕╢Rb╜RI│RQRQRQR╡ùö₧ùRQRFR╣R╣Rö░R~╜┐╛RÆ╜R╙╖o┐vR;ïoöRÅ┐ ╔RÅ«│b    RÑè▓î9RÑåêR+┤RW╜╡7RÑè┐dRΦèdRñåR█ÄRñ╛Re░▓dR╕ÄR}╜RL░RQRQRQR╣╧ö₧╧RQRIbR╡îR╡ƒ┤ëRÑ▓Ω┐┐╡R°░«╗ Rf╜R▒8╛RÑé╧┤Rö╢R╣RÑè▓îRï▓ëRÑè»╡4RÇ▓»╖╚┐Rö╢»┐╖╚┐┐R«┤╖8╚┐R"=RQRQRQRON***ERROR***SAVESYS***ERROR***RQR-RrSINR>ANDRrSINRF<SGNRrRNDRFSINSGNRrREADCMDRrREADAND***ERROR***COS^ANDRk<AND***ERROR***COS^^=RNEWOR8RFNDEFANDdR[INTR***ERROR***SQRRFN==RESTORERFNDIMGOTORFNDIMRDEFLOGR***ERROR***ABSSINSIN8***ERROR***COSSINR***ERROR***COSANDSIN7LEFT$SINSINSINbRpSINRISINRzPOSCOSRaPOSRzPOSRDEXPRQRQRQRPOS***ERROR***SAVESYS***ERROR***R***ERROR***ANDSINR@COSR_INTUSRRuGOSUBSQRREAD77oRFINTUSRCLR***ERROR***RIGHT$'R/INT***ERROR***RUN***ERROR******ERROR***4SIN^^INTb~SINRABSCOScCOS^SGNRESTOREnSIN***ERROR***IFRIGHT$'b^SGN***ERROR***dSINLOGRESTORERESTORE***ERROR***'COS^USRREMR***ERROR***SQRSGNRrEXPCMDR!<RRIGHT$SIN***ERROR***RFNNEXT***ERROR***RPOSDIM^USRRFNNEXTFRER^INTRFN=R=INTR~SINbR COSRFNABSSGNRESTOREoRPOS5COS^^SGN***ERROR***RSQRRFNSQRUSR?SIN^^USR7SINSINCOSANDSINSINLEFT$CHR$SINCOSANDUSR7RcEXPANDLEFT$LEFT$CHR$?RMREMRHFRERQRQRQRPOSMID$SAVESYSMID$RFSRFDATA^^ANDRFIFANDSINCOSRFIFINTbCOSEXPRFREMRESTORERFREADSGN***ERROR***dR{EXPR***ERROR***LOGRFIFSGNCOSRFIFSGNoR~>RFNRETURNCHR$RnINTANDCOSRFNCONTRu<RPOSSQRRu<RFNABS***ERROR***RFNABSR***ERROR***COSUSRR-LOGR***ERROR***SQRSINANDFRECHR$RmSGNSGNbSINSINSINLEFT$7REXPANDSGNo^SINRISINRcGOSUBR|POSRQRQRQRPOSGOSAVESYSGORQRF***ERROR***RNEWEXPRGOSUBANDSINCOS^RFREMINTbSINRFIFRESTOREdRWAITLOGRINT***ERROR***dEXPRSAVEORRZSINR>ANDCOS^RND***ERROR***R***ERROR***ORCOSRIREMRTAB(LOGFRERFNNEXTRIREMRSYSCOSINTRI<RFNSQRRIREM^^SGNRWAITDIMSINLEFT$?RORANDSINSINLEFT$?RlORSGNRI<RGUSRRxINTRQRQRQRPOSLEFT$SAVESYSLEFT$RQRF#RVEXPRGOSUBRYPOSR>^SINSINANDSINSGNR|EXP^^ANDLEFT$#SIN=R>SAVE=R(REM***ERROR***INPUT#SGNRVALRESTOREAND***ERROR***R`IF^AND***ERROR***R`IF^^USR***ERROR***RFNNEXT7R>RXEXPSGNR    LET^ANDRNEWNEXTSINRUSRNEXTANDRNEWCOSRONRESTORESINRzPOSRHINPUT#RwFRERQRQRQREXPOPENSYSSAVEOPENSYSRQRSGNRINPUTINTCMD ***ERROR***CMDSAVERINTINT***ERROR*** ***ERROR***OPENSGNRINTINTSINSINRG<ANDCMDCOS^SGNR>***ERROR***COSRNEXPRpINTRND***ERROR***SGNRFNRUNFRE***ERROR***RFORLEFT$SGNRINPUTLEFT$SGNR*INPUT#FRECHR$RINPUTFRELEFT$SINR***ERROR***OR^ANDLEFT$SINSINR>FRELEFT$LEFT$SINRATNABSRQRQRQRFLOADOPENSAVEOPENOPENRQR***ERROR***ANDSINCOSRGOTOSGNCOSRGOSUBPOSRESTOREOPENRFREMPOS***ERROR***CMDCMDR~EXPSIN^^POS***ERROR***RrREADEXPCMDCOS^RREMSQR***ERROR***R%EXPRGINTRND***ERROR***RFNDIMANDLEFT$RGOSUBDIMANDCHR$R***ERROR***SQRRFNDIMRESTORER<CHR$COS^INTRIFORFRE?R***ERROR***LOGRFNRETURNSINANDSGNRmSGNFRELEFT$7SINSINSINR}POSANDFRELEFT$CHR$?^SINR}EXPRISINR***ERROR***EXPCOSRQRQRQR>CLRSAVEOPENCLRRQRFORANDSINSINGOSUBRGOSUBINTbzLOGRFIFCMDoSIN***ERROR***RGOSUB***ERROR***mRFIFUSRCMDCMD&REMRPOSEXPRvEXPRrREMR***ERROR***SINRrREMRFNNEXTFRER^EXPR[>POSRFNSQRRDINTRFN=REPOSFRE?^R***ERROR***COSRqPOSRFNSQRRq>FRECHR$COS^^SGN***ERROR***R2FRERFNSQRUSRSINRIEXP***ERROR***SINCOSANDSINSINRjLOGANDFRELEFT$7?R***ERROR***LOGR}EXPRIUSR^SINR}EXPRQRQRQRPOSCMDSAVEOPENCMDRQRQRQRQRQRQRQRCONTSAVEOPENCONTRQRF***ERROR***RNEWEXPRGOSUBANDSINCOS^RFREMSGNSINRGOSUBINTCMD ***ERROR***CMDSAVERFUSRINT***ERROR*** ***ERROR***OPENR>INTRZREADANDCMDCOSRGOSUB^AND***ERROR***COSRFGOSUBR[SINSGNRFNRUNFRE***ERROR***Rm>RANDFRERm>RFNABS***ERROR***RFNRETURN^FRECHR$RSYSRUNLEFT$SINRORANDLEFT$SINSINRlORFRELEFT$LEFT$SINRaEXPRKORCOSRxINTRQRQRQRPOSLISTSAVEOPENLISTRQRF#R POSR>RYPOSR>^SINSINANDSINSGNR|EXPREXP#SIN=R***ERROR***<ANDSAVE=R~REMAND***ERROR***INPUT#SGNRVALRESTOREAND***ERROR***R`IF^AND***ERROR***R`IF^^USRR`READ^USR7R    INPUT#SGNR    LET^ANDRNEWNEXTSINRUSRNEXTANDRNEWCOSRONRESTORESINSGNRGOTOLETSINRIUSRRQRQRQRINTPRINT#SAVEOPENPRINT#RQR***ERROR***ANDSINCOSRGOTOINTbCOSRGOTORESTOREdRGOSUBSGN***ERROR***dRISINSINR***ERROR***LOGSINSINCMDRINTSGNCOSREXPRFNABSo^^AND***ERROR***RFNNEXTCHR$RG>COSRFNCONTR|GOSUBRPOSCOSR|GOSUBRFNSQR***ERROR***Rp>SGNoR***ERROR***COSRFNRETURNSINANDFRECHR$RmSGNSGNbSINSINSINLEFT$7R|EXPANDRKRNDSINLEFT$CHR$?R~>R***ERROR***EXPCOSRQRQRQR>PRINTSAVEOPENPRINTR***ERROR***RUSRRREXPRSQR>^^SIN***ERROR******ERROR******ERROR******ERROR******ERROR***RVINTCONT***ERROR******ERROR******ERROR******ERROR***OPENRINTLOGRwLOGREMR>LOGRESTORERESTORERESTORERFN=R***ERROR***INPUTR1RRpRREXPRNDABSINT<COSR^RUNRGET***ERROR***R***ERROR***&CMDRy>RsEXPR_***ERROR***RgINTR>ASCRON.SPC(/FNGETR0CMDRGETDEFR***ERROR***DEFSAVEOPENDEFRFSRIF***ERROR***R SINROPENPOSRQEXP***ERROR******ERROR******ERROR******ERROR***RNEW=EXPRLSIN***ERROR***RINTRLOPENRORNDRLOGORROSRPRFSRFSRFSR***ERROR******ERROR***RvGOTOCLRSYSSAVEOPENPOKERvEXPR3RNDR0USRAND<6***ERROR******ERROR******ERROR***R#POS<e)GO***ERROR******ERROR***?RREMSQR***ERROR******ERROR***COS^^<r6***ERROR******ERROR******ERROR***wCOS^^AND)GO***ERROR***RESTORERUN***ERROR***xREXPINT6***ERROR******ERROR***CLRREMRIUSRR***ERROR***ABSLEFT$RxEXPUSR;***ERROR***)(***ERROR***VAL^^AND5sv***ERROR***'****ERROR***)COS^^ABS+***ERROR***+#i***ERROR***)VALR***ERROR***COSSINRESTORERESTOREREADv***ERROR******ERROR***RESTORERWEXPINPUT9***ERROR***)***ERROR******ERROR***RFNSQRIFw***ERROR***INPUTf***ERROR***RESTORE***ERROR***RVEXPGOSUB#9***ERROR***rCLRRAPOSLOG***ERROR***w***ERROR***READ=RUINTAND***ERROR***49RESTOREREMOR_RSTR$FREGOSUB***ERROR******ERROR***<sQRRUNABSLIST***ERROR***REMOsQRABSABSSINSINCOSORPARRUNSQRR=FREQRPOSABSRQPOSSINSINRFNDIM^^RTANSAVECOSLOGEXPSQRRNDFREPOSABSUSRSGNINT=>$GOTORGET***ERROR***Rv***ERROR***RzEXP&CMDQQQ@bRV***ERROR***SINSINOPENOPENOPENRsEXPCMDCMDCMDRESTORESINRONfRb>FNFNGETGETGETCLOSENEWRGET***ERROR***RF***ERROR***OPENSAVEOPEN***ERROR***RFSRFSRFSRFIFIFRFDATARESTORERFOPENIF***ERROR***REMASRuUSRRFRNDQR^SGNR}FRE_RuSGNRt***ERROR***RvONRFSRFSRFSREXPCLRSAVEOPEN***ERROR***REXPRCLRRsQRsQRsY>RINTRZRND@RsINPUTORsRjINTRsEXP_PRZIFCOS>>RINPUTANDANDRFSRQRQR***ERROR***CMDSAVEOPEN***ERROR***RF***ERROR***RZSRGQRGQRZ***ERROR***CRGINPUTORqRZDATAQRGINPUTCOSSINR|ATNRQRQRQRPOSCONTSAVEOPENMID$RF***ERROR***R***ERROR***LOGSINSINR/<AND***ERROR******ERROR***RIGHT$'RqPOSUSR***ERROR******ERROR******ERROR***4R<EXPAND5***ERROR******ERROR******ERROR***RIF=AND3***ERROR******ERROR***RIGHT$'4cREXPLENz***ERROR***RESTORECONT***ERROR******ERROR***4RqEXPSINSINLOGGOSUB***ERROR***RIGHT$'RPOSuLEFT$R***ERROR***RUN<u***ERROR***ASC***ERROR***+***ERROR***?^^AND***ERROR******ERROR***6{#sCOS^AND***ERROR******ERROR******ERROR***v***ERROR***)***ERROR***/^^INTRESTOREPRINT***ERROR***#<RESTORERESTORER&SININTRIGHT$RUN***ERROR***eIF***ERROR***RjEXPRNDRESTOREPRINT"∙3ⁿR~╜»ì╒cï╫vRr╣▒_ù<∙3;ÅRI╜▒p╝î╫Rî║«▒SO╗;RQ╡▒Q▒╝√²Rî║«»┐»Rs╜R¡▀RQRQRQR╡¢öƒ╦RσRrSRrSRrS▒@RrâsRrç│ARrï»__Rrç╛RM╫RQRQRQRàÿöƒ╚R╡RQRQRa»┐RüORë»QsRàqPRrïQQORë┐▒Roü»RFSRQRQR1Öö£₧RFSRkQRFSRF█▒Qs░Rkì▒PARFï▒QQRhë▒┐┐R\'RQRQRQR╣ûö£ƒR╡Rs░RGÇ║ƒRZäφRû╣RÑΩ║Rû╡RÑRR±╞R-₧R5ÜRºRRµn╛å$▒╛R«åRíεRσb@Rx▒Rr╣Rߥ¥R▒┌Ræ.óáíR:ÿRíûRßùö££ç┤Rpƒ╜∩Rxä╝ÜRYçRÑ₧»ìRèåRÑ^R±╬R-₧RpSR╡PRFSRFSRFSR¥╧ö£¥R¥Ru╜¼÷&)╦τRñ╢⌠6)╦îäR\╜ïcw)╦∞îoRÑ╛sg)╦φîƒ╛«¼⌠crRÑ╛δRÑ║eR╣╛∙┐«¼┬RÑ▓╓RÑé'R╣é2Rìé3Rüé"RVERIFYNEXT%SIN^*STR$R***ERROR***=***ERROR***RFNNEXTCHR$SIN^^GOTOeREMSINSGN***ERROR***RESTORERFNCOSbREMSIN=***ERROR***RESTOREoSIN^^NOT***ERROR***blSINi***ERROR***INPUT#SINCOS^^*RIGHT$r7RESTOREWAITRFNCOS^LET***ERROR***cg<GOSUBRRESTORECOS^^****ERROR***;***ERROR***WAITSINRFNSQR^*6***ERROR******ERROR***REMRRESTORESQR^^^SINR^COSRQGOSUBRTORETURNCOSLOGEXPSQRRNDFREPOSABSUSRSGNINT=>REXPRGETDEFR***ERROR***RESTORERESTORE R^COSTT@bR***ERROR***SINOPENOPENOPENCMDR^ABSR_***ERROR***RON.**TOR^=GETGETCLOSENEWRGETCOSRANDSQRRSQRSQRCLOSENEWR***ERROR******ERROR***SAVECLRCONTRFSRFSRFSRFSRFSRFSRFSRF***ERROR***SAVECLRLISTR***ERROR***RTAB(VANDRSGNGOSUB^^^EXP***ERROR***REMRFNRR***ERROR***R***ERROR***SYSRaRRCLOSE***ERROR***COSDIM$>COSR^DIMRGET***ERROR***R***ERROR***b@QRLOADFORR***ERROR***RfEXPR>PEEKRON.NEWCLOSEGETR3PRINTRGETDEFR***ERROR***RzPOSCMDSYSSAVECLRPRINT#RE***ERROR***ANDSINRIFANDPOSLEFT$***ERROR***RREMUSR***ERROR***6MID$CLRRPSGNAND;6***ERROR***GORb<USR***ERROR***)***ERROR***RFNRUN&***ERROR***LEFT$***ERROR***CLRRJRNDAND(***ERROR***LEFT$GO***ERROR***RESTORERFNABSLEFT$MID$***ERROR******ERROR***CLRRESTORERSAVEPOSANDLEFT$***ERROR******ERROR***RFRECOSANDR***ERROR***EXP***ERROR******ERROR******ERROR***CLRRESTORESINCOSRND***ERROR******ERROR******ERROR******ERROR***zCMDCMD***ERROR******ERROR******ERROR******ERROR***SQR***ERROR******ERROR******ERROR******ERROR******ERROR******ERROR***R^COSOPENEXP***ERROR***CMDCMDLIST***ERROR******ERROR******ERROR******ERROR******ERROR******ERROR***OPENLOGCLRRESTORERESTORERUNCMDSTOPSTOPSTOPSTOPCMDOPENRVERIFYSQRRESTORER^SQRCOS^SIN***ERROR******ERROR******ERROR******ERROR***RGOSUBPOSCOSAND***ERROR***IFRDEFSQR***ERROR******ERROR***CONTCOSSQRSINSINR***ERROR***ABS***ERROR***REMREMLOGSINSINRNDR***ERROR***SQRCLRSINRFNCOSSIN***ERROR***R***ERROR***EXPREMSIN***ERROR***AND***ERROR***RhPOSReEXP***ERROR***^SQRRESTORE***ERROR***RAND=COSR2ABSRL>COSSQRPOSSGN<5201IF&"í╜╛RíεRzσ&&┘Q┐┐77ΩRZ╗Rz²RB╗┐Rª╢Ræfªª⌐í»»ºº¬RZ│RíûRFπƒö£ÖRFSRFSRF7ΓπσΣRF3îδRF│£RF¢║RFç∩RF¢ÅRFïÅ«║∞èR»▓RFSRFSRFSRߣö£ûRQRQRF3ΣΓσR1èRFç╝Rà∩RFƒ║RàÅRF¢╝R~ìΩRQRQRQRߥö£ùRQRQR5ΣππRΩïR▒ÜRF¢╝RàRs╜RFç∩Rë∩«╝R~ìèRQRQRQRßÜö£╧RæReü«╝¢╚▀Rv▒»ìΦ'√?R╕▓Ü°┘'≈R_╡╝Ü°╔╓;R╢╢╝ìδ╚┘&RÑ▓îÜ°╚╔╞Ro╡îìδ√Φ╚R₧▓îÜΩ√RÑ╢»┐îìΩΩ∙Ry╜╛║√√·¥¥π{√√δ ╜Rb╣δzΩΩ¢∩╜Ωz
  2.  
  3. Ω²¥¥èƒ╜¥MMMM¥∞îîìÅ»Rc╡Rò║»Rb╣R{╜┐«»φR~▒ⁿè╛╝╝ÜRτ╢┐┐∩╝┐ìRG╣ ┐RF┐╝RP╜¢Rk╜Rs╜R}╡║╛»Raìî∩R┌╜RD▒╛RQRQRQR▒¢ö£╠RFSRFSRF'
  4. zjRFRa╖ΩΩ·îRF¢║RFç∩RFƒ╝R~ë╝╛»R~ëRFSRQRQR²ÿö£═RQRQR%j
  5. RF{∞╛║RàÅRFƒ╝Rà∩RF¢R~ìΩÅRQRQRQRßÖö£╩RQRQR!zz
  6. RφR▒ⁿΩRF¢╝RàÅRFƒ║Rë║╛»R~ì∞RFSRQRQR²ûö£╦RæRóRRσf»Rÿ▒RU╜│sssR▐┤bbbooR╥┤R>┤┤RòµRkRR¬▀RQRQRQR╣ùö£╚RFSRLSRLïRM╗R▄┤▓▓bbbeRU╖╡╡R⌐┤┤RM╗RLSRFSRQRQRuRO╡ÄΘΘδÄ╚╟┬╦öÄ═╧╪╦▌ÄÄÄå╪╦▄ăǢçÄúñ┤µδⁿß«Q«╛∙δ∩■ßᲫ««»òQ╛║Q¬Ä»QúÜQóRQσRQ$RQgzªQñ·Q╖║.áδ.░è.ÖÄΘΘδÄ╚╟┬╦öÄ▌▐▄╟┌╦▌Äå╪╦▄ăǢçÄúñ┤«»¼¡¬½¿⌐ªºñÑóúáíPíε╛┐╝╜║╗╕╣╢╖┤╡▓│░▒òº«¼«P«é¡««║½╣⌐╢¡««╢»╣«╣Pí╛»╜PíûP▒╛»P▒▓«P⌐R¼P╔ÆP∙RP∙Ω»P╛╕⌐╢«P⌐▓¼««║¼P║»╢»╕P║╣P⌐╛¼«»╢¼PA▓¿╜ÑPQ╢╢PA▓╝Pí╢«Pß▓«╣¿Pß║P⌐▐P╔╛Pë╛»«P¢╛«P╤╛P⌐┌¼Pë▓»«««¼╕¼╕P=╗»«»P2╗¿«¿PƒPÑRPΣ┌Pu╗PÖ┐P%┐╣«╣PíèP¡>P¥▓Pü:╕⌐╢P!╗Pσ╝╕P-│╣«╣P╒┐P┘┐P▌┐Pù╗P┼┐P¡·P!╗P⌐ΩPò╗»«»P¥OªPóàå₧₧ö₧₧ç┤P╘SP¢┐┐┐╛P└▒»∞δ╔╧P╘▒╗╝δ╔╪P╢╢»╧╝è°┘P╢╢» PÑé┐┐╝PÑé┐ΦPìÄ▄èδ╚PüÄPò₧┐┐╝δ╚ P┼▓┐P┘▓44P-Ä┐┤P?Ä║ƒ'╜å&/P0╛»²┐Ü 'Pƒ╛╗Å╜Φ╢4╛««╣ƒÜ∙╢4┘╛P╣╛ìΦ╢7╒«╛╜╗╣┤│▒▌┘╘╙åá╛╛PíεQP«Æ«««&¥UQΩb┘@b@««P▒µî┐┐¥¥¥«┐¥¥P¿╜Pæf«ª¡Ñíí¬ó⌐áóáP{╖¡ÑÑPíèP!Ωå₧ƒö₧ƒç┤«╛»╔╔┘┘'4╒┐▀┐≥r╚╔µ7╣╔╩√°√╪·&4?╕°·ΩΩΩ╞&'▀╜û&°∙╞'┤┘╢-δù┐╛╢44/┐┤┘?╢┐P╗┐╢4/P╙╗»ÅÅ┐&&P&╖»ƒƒ┐┐┐ƒPF╡∩∩┐╝ÜP«░  ┐┐δPó░▀▀┐┐°P╢░▌▌┐┐∙Pè░··┐┐ÿ∩PÆ░¢ƒ┐╜PF│╗δ∩P²Ä«»²²┐┐PZ│«║܃P╫ä┐┐╜P+░»┐┐╦φP?░╕ÿ┘╪·P!▓▌╔PÑåPo╛PΘ╢PFSPFSPFSPF╗£ö₧£PQPQæP%╜PQì╕╪·èP÷Å╔╪·ÅP╙▒╕┘╦∞Å╕PY╡PÑ║╗PÑèÅP╙ì╕┘╩┐PÑå╚·∞ëPüéPò▓╗╚·Püè┐╡4P~Å┤P0╜P[╡┤P~╡»╢&,ƒ6╜Pè╕┐6╗φ┐¢╛PP╜/╩ƒ╝ ««»┘/█φ╜▀««┤╒7/╩£P╣╛PQPQPQP╡¥ö₧¥ç┤┤6┘┘╪╪╛»«┤7*╪╚ck┐╣┐╖&δ╔√╦√Φ╪▀╣6&(ΩΩΩδ╦╧┤┘┤6(█╦&-ƒ»┐=·û4/«┐/╖┘┐╢/««┐╢/Py╜P╜Pa╜╝╝P╡╜┐┐┐╜P⌠▒»φÅ┐║║Pì┐┐╗PZ│»╦┐┐╣╣PD▒█┐┐ÖÖPX╡║═┐┐δPX▒╗ƒ┐╜²P▒╜┐┐║·Ps▒┐┐┐¢Pm┐Pj╡╜φPu╗PG╜ƒPΦî««»Ü°Póè╜δ╔┘═╧PÑå╪P┼▓P╡PX╜PQPQPQP╣Üö₧ÜPQPQæP)ë««»∞δ╔Pæ│«╗╝δ╔╪P╦▒╧╝è°┘P÷╖» PÑé┐┐╝PÑé┐ΦPìÄ▄èδ╚PüÄPò₧┐┐╝δ╚PF│»┐Pr│44PrÅP╜P[▒║ƒ'╜å&/PY╜»²┐Ü 'Pƒ╛╗Å╜Φ╢Py╜╛««╣ƒÜ∙╢4┘╛P╣╛ìΦ╢7╒PQPQPQP╡¢ö₧¢ç┤«╛»╔╔┘┘'4╒┐▀┐≥r╚╔µ7╣╔╩√°√╪·&4?╕°·ΩΩΩ╞&'▀╜û&°∙╞'┤┘╢-δù┐╛╢44/┐┤┘?╢┐P╗┐╢4/P╙╖»îP}╜P╙▒ƒ┐┐┐ÅP'╡║PÑ╛ƒP~ë┐║∩P[╣P~╜║√PG╡»▌┐┐╕╧╗P▄╣╗╧┐┐╔┐╕▀Pr╣ ┐║ ┐┐╦╛Pl╜∩┐¥╛ ┐Ü╛«╗╚P&╜»╦┐ì╛«╗┘╦ƒ┐««╜∩┐┐«║╦√φ╛PO╜φ¥╛»╗Ω¥PÑ╛P¿║»¥P╨╛╗╪·P╝╛P_╜»∙╪·P£░P▐╕PQPQPQPìÿö₧ÿPFSPF;»╝┐PFﻥP¡╝∩P╩╡∩┐┐┐îPu╖PI┐╜ƒ∞PaÅ┐·┐√Ä«««╕▀┐┐∙┐┐╔PÑ╛╗╧┐╗∩┐┐╕Ph╜»╦┐╕ ┐┐Pr┐««╗P╣║┐╜P╜╜∩Pô╕P╗┐Å┐Å«┐┐╜Py╗┐ƒPG┐║φƒ«┐╕·P≥╝┐√Ωƒ»╔┘╦φ╛«»╔╦·ƒ╕┘PÑ▓╪ ╛P∩║╛PG│PQPQPQP╣Öö₧ÖPQPF7┐PFâ╝ÅPkà╜Å┐┐╜PZ╖»φ┐┐┐δPG╡Ps╜╕ⁿPÑ▓╦┐┐╔Å╕P₧┤╪┐┐ΦPf╜P[▒¢Pτ╛PG╖┐ƒ┐┐√φP3╜╣∩┐ ┐┐√Pe╖P<╜╣╚■Pσ╝»┐┐ƒ»╔╬P╣PD╗P²▓PD╗Pm╡PD│Pa╣PD│Pu╜PQPQPQP╣ûö₧ûPQP9╝Å╝Pì»φ┐╜┐┐ìP╣» ┐║┐┐┐P╜«»▀┐╗┐┐║╧P[╣╗ƒ╕ ┐╗▀P«░╕╧┐╗▀P╨╖┐┐█┐║√P╤│┐╚┐╜Θ║PÉ┤PD┐ÖP9│«║┐┐╜P╕▓«P«╝P│P1▒Pi│P{╡PDçPp╖PD√PQPQPQP╣ùö₧ùPQP9╜PFâ∩PF┐╝P╣║┐PF╗P╣╗┐PF┐PZ╖╣╧┐╗ ┐┐PF╗»█┐┐╪PÑ▓«║∩┐╚┐┐°P▌╣»P₧╢P╖┤┐╜║∩PÑÄ╗φƒ¥P">ANDPOS***ERROR***OPENP6GOSUBANDRIGHT$***ERROR***P***ERROR***FREP***ERROR***LOGANDLEFT$SINPDIFANDSINPD+PQPQPQPPOS***ERROR***SAVESYS***ERROR***PQP9P=EXPP>^^SINREMSINSINSINREMPATNGOTOLOGCONTPINTAND***ERROR***CONTSINSINRUNPFN=***ERROR***POSSINSINSQRPGPOS^RND***ERROR***RND***ERROR***SINSIN***ERROR***PPOSRND***ERROR***SIN***ERROR***SINSINFREPDPOSSQRSINPTAB(FRE***ERROR***COSP***ERROR***SGNSINCMDSINSINSQRCOS^RNDLEFT$***ERROR***SINSINCOSPhINTFRE***ERROR***LEFT$***ERROR***P~SINSIN/COS^AND***ERROR******ERROR***PEXPAND-***ERROR***AND^^RND***ERROR***CMDPFNCOSFREPiEXPANDCMDOPENPDEXP***ERROR***GOPTANLOGPUEXPSINRIGHT$***ERROR******ERROR***Pp>P}POSPQPQPQPGOSUB***ERROR***SAVESYS***ERROR***PQP9PqEXPPFREMANDPISINPONRND^^EXPPFSIN***ERROR***PINT***ERROR***P3SINPsINTAND***ERROR***PsPOSPPOSANDMID$SINEXP***ERROR***SINSIN***ERROR***PpEXPPsEXP***ERROR***SINSINSQRMID$PSINGOSINSINRND***ERROR***SINSIN***ERROR******ERROR***^^AND***ERROR***PFUSRSINPSINEXPPlEXPP+COSP?INTEXP/PPOSCOSPMSINSINOPENSYS^/ANDSQRCMDOPENPeGOSUBSIN***ERROR******ERROR***OPENPe>AND***ERROR***GO***ERROR***OPENPe>ANDRIGHT$LEFT$***ERROR***COSPe>PLOGPFSPQPQP>***ERROR***SAVESYS***ERROR***PQPVALLOGREMPFREADCMDPFDATA***ERROR***P***ERROR***USRPkPOS***ERROR***SINSINEXP***ERROR***P>***ERROR***SINSINSINPRINT#PPOS^^FREPSINGOPUSRSGNSIN***ERROR******ERROR***SINSINCONTPFN=SQRPaSINEXPPLOADFRERNDSINSINRESTORESINSINEXPCMDP***ERROR***EXPSQRP***ERROR***SQR***ERROR******ERROR***PSINANDCLRSINSINSINRND***ERROR******ERROR***P***ERROR***FRELOGREMSINANDPOSGO***ERROR***P***ERROR***SGNSINOPENANDRIGHT$P***ERROR***ABSPDSINAND***ERROR******ERROR***P*FREPDRNDP>ABSPD<PcGOTOP=PQPQPQPPOSMID$SAVESYSMID$PQP9^LOGPFORPEXPP>RNDOPENSINSINLOGPm<FRE***ERROR***SINEXP***ERROR***PG>POS***ERROR***SINEXP***ERROR******ERROR***PABSORGOSINSINSQR***ERROR***PXINTP~USREXPPEXP^^ANDSQROPENSINSIN***ERROR***PIRND^^ANDLOGREMFRE***ERROR***PRUN=^SINSINPa<PsRNDLEFT$***ERROR***P<P{EXPPFRERETURN^SINFRE+P{EXPPDREADP***ERROR***ORPD***ERROR***PQPQPQPPOSGOSAVESYSGOPQPF;ANDREMPINPUTEXPREMPEXPEXPP|EXPANDPEXPSINSQRPjRNDFRE***ERROR***SINSIN***ERROR***SIN***ERROR***P***ERROR***POSPOS***ERROR***SINSINRIGHT$COS***ERROR***PGOSUBSQRSQR***ERROR***REMSIN***ERROR***SINSINP:RNDANDSQRCLRSINSQRSINSIN***ERROR***P1>PjEXP***ERROR******ERROR***PLOADSGNPGEXPSQRGOP8INTGO***ERROR***PsEXPPjEXPSINPOSGO***ERROR***P***ERROR***LOGCOS^^AND***ERROR******ERROR******ERROR***SINSIN^SIN***ERROR***PFNCOS***ERROR***RIGHT$***ERROR***COSP{POSPURNDCOSPD/PQPQPQPPOSLEFT$SAVESYSLEFT$READSGNPARESTOREPSTEPRPCMDGOSUBPCONTGOTOFRE***ERROR******ERROR***RUNP***ERROR***>ANDRIGHT$***ERROR******ERROR***REM***ERROR***PCONTGOSUBGO***ERROR***REMFREPINTPFNSQRRNDPFNRUNREMP***ERROR***INTP***ERROR***EXPMID$P***ERROR***>PMID$EXPLEFT$***ERROR******ERROR***GOTOPFORNEXTPVERIFY=RNDLEFT$***ERROR***PFORRUNSININT4PGOSUBSGNPuINTANDSINSINSGNP***ERROR***ABSANDABS&,OPEN6EXP***ERROR***P_POS6RND***ERROR***SINLISTPQSIN4/MID$OPENLOG***ERROR***^^AND***ERROR***/***ERROR******ERROR***EXP***ERROR***^^SGN***ERROR***7/MID$CLRPPOSCOSPQPQPQPPOSOPENSYSSAVEOPENSYSREADSGNSGN6***ERROR******ERROR******ERROR******ERROR***COSAND^SGN7****ERROR***LEFT$ckSINPOSSINUSR&***ERROR***RIGHT$***ERROR***GO***ERROR******ERROR******ERROR******ERROR***POS6&(***ERROR******ERROR******ERROR******ERROR***GO***ERROR***SGN***ERROR***SGN6(***ERROR***GO&-OPENANDSIN=***ERROR***DEF4/^SIN/USR***ERROR***SINABS/^^SINABS/PSININT^^PaEXPRESTOREPCLR>LOGP~EXPPPOS^^EXPPrEXPP***ERROR***RND^ANDSQR***ERROR***SINPGOTO***ERROR******ERROR******ERROR***SINSIN***ERROR***PINT***ERROR***FRE***ERROR***SINSINPRINTPkPOSPOS***ERROR***SIN***ERROR***SINSINFREPOPENLOGAND***ERROR***SINSINRND***ERROR***SINRNDPSINAND***ERROR***SINRNDANDCMDPBEXPSIN^ANDCLRSIN***ERROR***COSPBEXPLEFT$***ERROR***^SINSINSQROPEN^^SINEXP***ERROR******ERROR******ERROR***ANDCMDCONTPyPOSCONT***ERROR******ERROR******ERROR***ANDCMD***ERROR******ERROR***PMEXPPNOTCOSANDCMD***ERROR***RIGHT$P.LOGEXPCMDCOS^^SIN***ERROR***RIGHT$***ERROR***PREXPPFREPASCLETPFSPQPQPF<OPENSAVEOPENOPENPFSPFSINREMPpINTP!SINSINP***ERROR***SINPGEXPRESTORESINSINSINSQRPGUSRRUNEXPOPENPGREM****ERROR***SIN***ERROR***SINP<****ERROR***SINSIN***ERROR***SINSINPOS***ERROR***PjEXP***ERROR***SINSINSQR***ERROR***PGRNDAND***ERROR***SINSINSINRND***ERROR***PTAB(FREANDPDEFCOSSQR***ERROR***SINP***ERROR***EXPP***ERROR***LOGSINEXP***ERROR***POSINANDCMDOPENSINSIN^LOGSINLOGSIN^^EXPCONT***ERROR***PEXPEXPPpEXPEXP***ERROR******ERROR***PdSINEXP***ERROR******ERROR***SIN^EXP***ERROR******ERROR******ERROR***COS^ANDCONT***ERROR******ERROR******ERROR***COSANDRNDRIGHT$PFN=***ERROR******ERROR***PIUSRANDP***ERROR***SQRPQPQPQPINTCLRSAVEOPENCLRPQPFPREM>PkEXPLOGPZREMOPENSINSINLOGOPENPDINTLOG***ERROR***SINSINSINCONTPFN=IF***ERROR***PsGOSUBSIN***ERROR***LOG***ERROR***Ps>PlEXPMID$SINSINRIGHT$PUSRSINSIN***ERROR***P[INTEXPCONT***ERROR***SINSINEXPSINPIRNDEXP***ERROR******ERROR***SINSINRNDSINSQR***ERROR***PZEXP-LEFT$***ERROR***PVRNDPPOSNOT***ERROR***COSEXPP
  7. GOSUBSIN***ERROR***PHUSRPNEWABSPHUSRPINTPH<P+SGNPHUSRPQPQPQP>CMDSAVEOPENCMDPQPREMLOGREMPINTCLRSINSINOPENP<RNDSINSINSIN***ERROR***SINRNDPDPOSFRE***ERROR***SINSIN***ERROR***SINPOSPXPOSPOS***ERROR***SINRND***ERROR***EXPP~EXP^ANDPOS***ERROR***SINFRE***ERROR***P^FREANDSIN***ERROR******ERROR***SIN***ERROR***P<***ERROR******ERROR***OPENSINLEFT$PUSRANDSIN***ERROR***PHUSRPABSFREOPENSINSIN***ERROR***PFN=ANDP^LOGPPOS=PINTPRUN=PHREADPc>PHLENPFSPQPQP>CONTSAVEOPENCONTPQPFOPENPINTREMPFSINSQRPpPOSSQRPFRNDP6USRPZSIN***ERROR***P<POSSINSINRND***ERROR***SINFREP9EXPPFNCOSRIGHT$SINSIN***ERROR***PGRNDGOSINSINLEFT$SINSQRPiRNDFREPENDABSPGOSUBSGNSINSINSQR***ERROR***OPENPPOSP(EXPCMDEXPCONTPGOSUBSGNP`EXPEXP***ERROR******ERROR***PhEXPSQRPcEXPSIN***ERROR***PPOSPcINTSINLEFT$COSPHREADPDEXPPH***ERROR***PQPQPQP>LISTSAVEOPENLISTPQPPPRINTREMLOGSINSINSINLOGPRIGHT$>AND***ERROR***REMP***ERROR***GOTOAND***ERROR***SINSIN***ERROR***PQUSR^RND***ERROR***SINSIN***ERROR***FREPZPOSAND***ERROR***SINSINFRE***ERROR***FREPQUSR***ERROR***SINSINGOSINSQRPGEXPAND***ERROR***PFNFREPPOSAND***ERROR***SINSINCMDP.POSCOSPjINTANDSINSINFRELEFT$***ERROR***^ANDSYSPSEXPSINRNDLEFT$***ERROR******ERROR***^COS***ERROR******ERROR***PyRND***ERROR***RIGHT$COSANDCONT***ERROR******ERROR***PMSINCMD***ERROR******ERROR***^^SQR***ERROR***RIGHT$PFEXPEXPCMDP[SINFRE***ERROR******ERROR***SINPeEXPPVEXPPFSPQPQP***ERROR***PRINT#SAVEOPENPRINT#PQPFPjUSRPINPUTPOSLOGP~USRANDSQRPFSINPGINTPsEXPEXPPGINTPEXPSIN***ERROR***SINCONTP[EXPPOSMID$SINSINFREOPENSIN***ERROR***P***ERROR***EXP***ERROR******ERROR***SINSINMID$PsINTSQR***ERROR***SINSINSQR***ERROR***SINSIN***ERROR***P SINPkEXPSINSINSIN***ERROR***P4EXPSINSINOPENPfEXPOPENCOS^ANDPPOSCOSSYSPTAB(COSPfSIN***ERROR***COSSYS^/EXPPzRNDCONT***ERROR***PREXPPyPOSEXP***ERROR******ERROR******ERROR***COSPy>ANDRNDLEFT$***ERROR***PFNABS***ERROR******ERROR***PISINPLISTFREPyEXPPQPQPQPPOSPRINTSAVEOPENPRINTPQP***ERROR***LOGREMPFORPCONTEXPPkEXPPHEXPP>AND***ERROR***OPENSINSINRNDPkINTPOS***ERROR***SINSINSIN***ERROR***PPOSSIN***ERROR***PSIN***ERROR***PPOSSGN***ERROR***SINSINSQR***ERROR***PMID$INTPlSINCMD***ERROR***P***ERROR***EXPSINCMDOPENSINSINRESTORESINSINPFEXPEXPCONT***ERROR***P***ERROR***SQRPrEXPSIN***ERROR******ERROR******ERROR***SINSINSINGOSUBPENDFRERND***ERROR******ERROR***COSSINLOGREMP***ERROR***SGN***ERROR******ERROR***COSPHRNDPEXPRND***ERROR***COSPHRNDP ABSPHUSRPINTPH<PDIMPsEXPPQPQPQPPOSDEFSAVEOPENDEFPQPP***ERROR***USRPINTEXPPs>***ERROR***REMSINSINEXPPSINPGEXP+OPENSINRNDPs<POSGOOPENSINPRINT#***ERROR***PZINT***ERROR******ERROR***PINT^ANDEXPPEXPP~RND^SINCMD***ERROR***SINSINEXP***ERROR***PVERIFYFREANDSQR***ERROR******ERROR***LOGREMPj<SIN***ERROR******ERROR***P3RNDP***ERROR***FREFRELEFT$PuREMPEEXPPTORUN^EXP***ERROR***PH<PtUSRPH***ERROR***PFSPQPQP>POKESAVEOPENPOKEPQPFLOGP;USRP8EXPSINLOGOPENPjUSR***ERROR***PpEXP***ERROR***P***ERROR***INTMID$SINRNDSINSINSQRPiEXPANDOPEN***ERROR***AND***ERROR***SINSINFREPGRNDEXPSINSINGOSINLOG***ERROR***PEXPAND***ERROR***SINSIN***ERROR***SINGOSUBPpRNDPOSMID$P***ERROR***POSPPOS***ERROR******ERROR***PGEXPPZUSRPsEXPCONT***ERROR***P:POSP<EXPEXP***ERROR******ERROR******ERROR***PEXPAND+SIN^SINSINRIGHT$***ERROR******ERROR***COS^^PcPOSANDPOS***ERROR***GOCOSPHREMANDP!LOGPH***ERROR***PQPQPQP>***ERROR***SAVEOPEN***ERROR***READSGNPILETPSPC(RP
  8. 20535 ^SQR?PFN***ERROR***PFSPkPPFSPFSPFSPINPUT***ERROR***SAVESYS***ERROR***PQPQPINPUTABS&P^SQR/PFN***ERROR***PQPQQPQPQPQPINPUT***ERROR***SAVESYS***ERROR***PQPQPINPUTPOS***ERROR***P^SQR***ERROR***PFN***ERROR***PQPQQPQPQPQPINPUT***ERROR***SAVESYS***ERROR***PQPQPINPUTFRELEFT$P^SQR***ERROR***PFN***ERROR***PQPQQPQPQPQPINPUTMID$SAVESYSMID$PQPQPINPUTRND***ERROR***P^SQR***ERROR***PFN***ERROR***PQPQQPQPQPQPINPUTGOSAVESYSGOPQPQPINPUTSQR***ERROR***P^SQR***ERROR***PFN***ERROR***PQPQQPQPQPQPINPUTLEFT$SAVESYSLEFT$PQPQPINPUTEXPCMDP^SQROPENPFN***ERROR***PQPQQPQPQPQPGOTOOPENSYSSAVEOPENSYSPQPQRIGHT$P(INPUTANDSIN***ERROR***RIGHT$&&***ERROR***PPOSEXP***ERROR******ERROR******ERROR***'7*CONT***ERROR***PtSIN***ERROR***LEFT$***ERROR***7RESTOREREAD***ERROR****COS^^AND***ERROR***LEFT$RIGHT$'<GOSUB***ERROR***7PFNCOSCONT***ERROR***RIGHT$***ERROR***7***ERROR******ERROR***READCOSPPREM***ERROR***7?PTOFRECONT***ERROR******ERROR******ERROR***CONTPrPOSANDSINCMD***ERROR******ERROR******ERROR***P***ERROR***COSPVALDEFPYQPQPQPQPFLENOPENSAVEOPENOPENP}P***ERROR***FORSINCONTRIGHT$&P(RNDPSINLEFT$***ERROR***&<P0SIN^^EXPCONT***ERROR***RIGHT$&'PSINPEXP***ERROR******ERROR******ERROR******ERROR***-PIFCMDCMDCMD***ERROR***P USRPkEXP***ERROR******ERROR***PFSINPIFSQR***ERROR******ERROR***POPEN=ANDCMDCMDCONT***ERROR***P***ERROR***=SINSINCMDCONT***ERROR***PFRNDPVERIFYABSOPENPSYSSGNPZRND***ERROR***P***ERROR***RETURN***ERROR******ERROR******ERROR******ERROR***PPOKERUN***ERROR******ERROR******ERROR***PQINTPPOKECOSLEFT$PNEWPPQPQPQPGOTOCLRSAVEOPENCLRP***ERROR***PjOPENP***ERROR***REMP***ERROR***POKEP***ERROR***SIN***ERROR***PjIFCONT***ERROR******ERROR******ERROR***PUSRPGO***ERROR***PqCMDP%INPUTPLOADSYSP***ERROR***SYSPFOPENP+SYSP***ERROR***P***ERROR***WAIT***ERROR***P***ERROR***DIM***ERROR***LEFT$MID$PNEWLET***ERROR******ERROR***P***ERROR***vPQPQPQPINTCMDSAVEOPENCMDPP***ERROR******ERROR***P***ERROR******ERROR******ERROR******ERROR******ERROR***CMDP***ERROR***GOSUBCMDP'GOSUBPPOSPFKP;EXPP9>SINCONTLEFT$***ERROR***P*RESTORECONT***ERROR***RIGHT$&P*RESTORECONT***ERROR***RIGHT$&P*LET***ERROR******ERROR***P*INPUT#CONT***ERROR***LEFT$PsMPQPQPQPPOSCONTSAVEOPENCONTPFPIFbANDP{EXPPh>FRE&&***ERROR******ERROR***PLPOSFRE***ERROR******ERROR***76)MID$***ERROR***OPEN^^AND***ERROR******ERROR***<RESTORE7)LEFT$***ERROR***PFNCOS7***ERROR***CLRREAD6***ERROR***LEFT$***ERROR***COS^^AND<RUN***ERROR***7RIGHT$***ERROR******ERROR******ERROR***PEEXPUSR7MID$PDIMLOGCMDOPENPPOS***ERROR******ERROR******ERROR******ERROR******ERROR***PFNSQR^^FREGO***ERROR******ERROR***CMDPdGOTOPVALRETURNP`RPFSPQPQP***ERROR***LISTSAVEOPENLISTPFsP***ERROR***OPENUSR7&***ERROR******ERROR***P<<READ&)LEFT$PRND^AND76&***ERROR***MID$***ERROR***PUSRDEF)***ERROR***MID$***ERROR***PRNDFRE***ERROR***CMDCMDCMDPUSRAND***ERROR***+***ERROR***Pl<PDATACOS***ERROR******ERROR***PREMABSP***ERROR***COS***ERROR******ERROR***CMDCMDPINTUSR7GO***ERROR***CMDPSYSLETEXPPVERIFYRETURN^^AND***ERROR***PZREADAND***ERROR******ERROR******ERROR******ERROR***PLOADRETURNGO***ERROR******ERROR***PLOADRUNFRELEFT$PLOADCOSP***ERROR***PFSPQPQPiPRINT#SAVEOPENPRINT#P***ERROR***PjPOKEPDIMIFP***ERROR***OPENAND76***ERROR***P***ERROR***IF***ERROR***)***ERROR***PGO***ERROR***PATNCMDP)FORPPOKESYSP***ERROR***CONTPF***ERROR***P/P***ERROR***CONT***ERROR***P***ERROR***DIM***ERROR***LEFT$GOP***ERROR***DIM***ERROR***RIGHT$P***ERROR***zPQPQPQPPOSPRINTSAVEOPENPRINTPP
  9.